(x-menu-bar-open): Use accelerate-menu.

diff --git a/lisp/ChangeLog.multi-tty b/lisp/ChangeLog.multi-tty
index 80fc5f4d5867a5ebd424035d621bea6aa5cbb427..6c04ee57077d62f0edaf7f96be0d6166d62821c0 100644 (file)
--- a/lisp/ChangeLog.multi-tty
+++ b/lisp/ChangeLog.multi-tty
@@ -1,3 +1,7 @@
+2007-07-02  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * term/x-win.el (x-menu-bar-open): Use accelerate-menu.
+
 2007-06-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * term/xterm.el (terminal-init-xterm): Fix previous change.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index fe5d181ea2155e6c751c336bedbbf326c5c2ae1a..658911a9e34329dc46f83f210f07f06211c1cfeb 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2411,7 +2411,7 @@ order until succeed.")
 (defun x-menu-bar-open (&optional frame)
   "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
   (interactive "i")
-  (if menu-bar-mode (menu-bar-open frame)
+  (if menu-bar-mode (accelerate-menu frame)
     (tmm-menubar)))
 
 \f